DEFINITION MODULE MathLib;
(*		File :	MathLib.def					   *)
(*		Date:   Octeber , 1986					   *)
(*		By:  RTA						   *)
(*									   *)
(*   SCCSID  = "%R%.%L%    %G%"; 					   *)
(*
*    Copyright (c) 1985, 1986 by
*    Djavaheri Bros., Foster City, California.
*    All Rights Reserved.
*
*    This software is furnished under a license and may be used and copied
*    only  in accordance with  the  terms  of  such  license and  with the
*    inclusion of the above copyright notice.  This software or  any other
*    copies thereof may not be provided or otherwise made available to any
*    other  person.   No title to and ownership of the  software is  herby
*    transferred.
*
*    The information in this software is  subject to change without notice
*    and  should  not be construed as a commitment by Djavaheri Bros.   No
*    warranty is implied or expressed.
*)
(*									   *)
(*	History of Modifcation						   *)
(*	Date		Who			Reasone			   *)

EXPORT QUALIFIED sgn, ld, int, pi, e, zero,
                 matherr;
VAR
	zero, pi, e: REAL;

PROCEDURE matherr (VAR where, error: ARRAY OF CHAR);

PROCEDURE sgn (x: REAL): REAL;
(* 
   return -1.0 : x < 0.
           0.0 : x = 0.
          +1.0 : x > 0.
*)

PROCEDURE ld (x: REAL): REAL;
(*
   dual logarithm of x base 2
   x >= 0.0
*)

PROCEDURE int (x: REAL): REAL;
(*
   truncate the fraction part off.
   2147483647.0 < x <=  2147483647.0
*)

END MathLib.
